home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D04.D64 / ge.mc utils demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.8 KB  |  199 lines
  1. 10 X=X+1
  2. 20 IF X=2 THEN LOAD"GE.SPRITES",8,1
  3. 30 IF X=3 THEN LOAD"GE.MC UTILS",8,1
  4. 100 GOSUB10000
  5. 110 PRINT"[147][144]-[213]TILITIES [196]EMO-"
  6. 120 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  7. 130 PRINT" [212]HIS IS A SHORT [196]EMO TO SHOW AND"
  8. 140 PRINT" EXPLAIN THE DIFFERENT ROUTINES."
  9. 150 PRINT" [212]O USE THE [213]TILITIES, FIRST:"
  10. 160 PRINT"[204][207][193][196]"Q$"[199][197].[205][195] [213][212][201][204][211]"Q$",8,1"
  11. 170 PRINT"[212]HEN DEFINE THE FOLLOWING VARIABLES     WITHIN [194][193][211][201][195]:"
  12. 180 PRINT" [193][212]=49152 : [211][201]=49155 : [211][197]=49158"
  13. 190 PRINT" [198][216]=49161 : [208][213]=49164 : [195][211]=49167"
  14. 200 PRINT" [210][214]=49170 : [211][195]=49173"
  15. 210 PRINT"  [212]HIS ALLOWS YOU TO USE [211][217][211] [198][216],1"
  16. 220 PRINT" RATHER THAN [211][217][211][160]49161,1 WHICH IS"
  17. 230 PRINT" SLOWER AND MORE DIFFICULT TO"
  18. 240 PRINT" UNDERSTAND."
  19. 250 GOSUB 5000
  20. 300 PRINT"[147][208]RINT AT"
  21. 310 PRINT" [183][183][183][183][183][183][183][183]"
  22. 320 PRINT" [212]HIS ROUTINE ALLOWS YOU TO PRINT"
  23. 330 PRINT" ANYWHERE ON THE SCREEN WITHOUT USING"
  24. 340 PRINT" AWKWARD CURSOR CONTROLS."
  25. 350 PRINT"[211][217][211] [193][212],[216],[217],STRING"
  26. 360 PRINT" E.G [211][217][211][160][193][212],1,1,"Q$"[200]ELLO!"Q$
  27. 370 PRINT"     [211][217][211][160][193][212],0,1,A$"
  28. 380 PRINT"     [211][217][211] [193][212],2,2,B$+"Q$"[200]I!"Q$
  29. 390 PRINT"[216]: 0-39 , [217]: 0-24"
  30. 400 GOSUB 5000
  31. 410 FOR A=1 TO 15:POKE646,RND(1)*16:SYS AT,RND(1)*34,RND(1)*5+18,"[200]ELLO!!"
  32. 420 FOR B=1 TO 50:NEXT
  33. 430 NEXT
  34. 440 GOSUB 5000
  35. 500 PRINT"[144][147][211]PRITE [208]ULSE"
  36. 510 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183]"
  37. 520 PRINT" [212]HIS ROUTINE TURNS ON [211]PRITE 1"
  38. 530 PRINT" AND SETS UP AN INTERRUPT AT $0314 ([201][210][209])"
  39. 540 PRINT" [212]HIS MAKES THE SPRITE PULSE:"
  40. 550 PRINT"[211][217][211] [211][201],[211]PEED (1-255)"
  41. 560 GOSUB 5000
  42. 570 SYS SI,5:POKE 53249,175
  43. 580 FOR A=1 TO 3:FOR B=60 TO 255
  44. 590 POKE 53248,B:NEXT B,A
  45. 600 POKE 53248,174
  46. 610 SYS AT,1,10,"[212]HE SPRITE CAN BE MADE TO FLASH"
  47. 620 PRINT" BY [208][207][203]ING 251,1:    "
  48. 630 GOSUB 5000:POKE 251,1
  49. 640 SYS AT,1,13,"[212]O STOP THIS:"
  50. 650 PRINT"[208][207][203][197] 251,0":GOSUB 5000
  51. 660 POKE 251,0
  52. 670 GOSUB 5000
  53. 700 PRINT"[147][211]ELECT"
  54. 710 PRINT" [183][183][183][183][183][183]"
  55. 720 PRINT" [212]HIS MAKES THE SPRITE FLASH FOR A"
  56. 730 PRINT" SHORT TIME DEPENDING ON '[211]PEED'. [201]T"
  57. 740 PRINT" DOES THIS BY [208][207][203]ING 251,1 FOR A TIME"
  58. 750 PRINT" THEN RESETING IT TO 0."
  59. 760 PRINT"[212]HE ROUTINE ALSO CHANGE THE SPRITE"
  60. 770 PRINT" POINTER IN 2040 FROM 13 TO 15 ([197][207][210] #2)"
  61. 780 PRINT" AND BACK AGAIN:"
  62. 790 PRINT"[211][217][211] [211][197],[211]PEED (1-255)"
  63. 800 GOSUB 5000:SYS SE,60
  64. 810 GOSUB 5000:SYS SE,60
  65. 820 GOSUB 5000
  66. 830 POKE 53269,0:POKE 54296,15
  67. 900 PRINT"[147][211]OUND [198][216]"
  68. 910 PRINT"[183][183][183][183][183][183][183][183]"
  69. 920 PRINT" [212]HESE ROUTINES MAKE A FEW SIMPLE"
  70. 930 PRINT" SOUNDS WHICH CAN BE INCORPORATED INTO"
  71. 940 PRINT" A [194][193][211][201][195][160]GAME.
  72. 950 [153]"(null)EMEMBER TO TURN ON THE VOLUME:"
  73. 960 [153]" (null)(null)(null)VAL 54296,1-15"
  74. 970 [153]"(null)(null)(null) ASC(null),(null)OUND (0-3)"
  75. 980 [153]"(null)OUNDS: 0 'DING'"
  76. 990 [153]"         1 'BARP'"
  77. 1000 [153]"         2 LAUNCH A BULLET/MISSILE ETC."
  78. 1010 [153]"         3 EXPLOSION"
  79. 1020 [153]"((null)(null)(null)VAL 54276,128 IS NEEDED TO FINISH 2)"
  80. 1030 [129] X[178]0 [164] 3:[141] 5000
  81. 1040 [158] FX,X:[139] X[179][177] 2 [167] 1060
  82. 1050 [129] A[178]1 [164] 1000:[130]:[151] 54276,128
  83. 1060 [130]
  84. 1070 [141] 5000
  85. 1100 [153]"LOAD(null)ULSE AND LENHASE (null)IGHTS"
  86. 1110 [153]" USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  87. 1120 [153]" (null)HESE TWO ROUTINES ALLOW TEXT TO BE"
  88. 1130 [153]" PULSED."
  89. 1140 [153]"(null)(null)(null) (null)(null) OR LEN(null),(null),(null),(null)ENGTH (1-250),ASCLAG"
  90. 1150 [153]"RIGHT$F ASCLAG IS 1-255, THE LINE ATNPEEK(null)(null)VAL WILL"
  91. 1160 [153]" BE PULSED TOO:"
  92. 1170 X[178]0:[141] 5000
  93. 1180 [158] RV,1,1,22
  94. 1190 RT[178]PU:P[178]30:[141] 4000
  95. 1200 [158] AT,1,13,"(null)HE SYNTAX FOR LENHASE (null)IGHTS IS THE"
  96. 1210 [153]" SAME, BUT THE EFFECT IS THIS:"
  97. 1220 [141] 5000
  98. 1230 RT[178]CS:P[178]20:[141] 4000
  99. 1240 [141] 5000
  100. 1300 [153]"LOAD(null)EVERSE"
  101. 1310 [153]" USRUSRUSRUSRUSRUSRUSR"
  102. 1320 [153]" (null)HIS ROUTINE REVERSES CHARACTERS ON"
  103. 1330 [153]" SCREEN SO THEY CAN BE HIGHLIGHTED."
  104. 1340 [153]" (null)(null)(null) (null)(null),(null),(null),LENGTH"
  105. 1350 [141] 5000
  106. 1360 [143] SYS RV,23,6,11
  107. 1370 [158] AT,1,10,"(null)HIS COULD BE USED WITH THE PULSE"
  108. 1380 [153]" ROUTINE TO PRODUCE A SELECTION BAR:"
  109. 1390 [129] A[178]1 [164] 5:[153]A;"CMD: OPTION ";[199](A[170]96):[130]
  110. 1400 [153]" 6: ASCINISH ! (ASCIRE TO (null)ELECT)"
  111. 1410 [153]" ((null)OVE JOYSTICK UP AND DOWN)"
  112. 1420 LI[178]13:[158] RV,1,LI,11
  113. 1430 J[178][194](56320):[139] J[178]127 [167] 1430
  114. 1440 U[178]J[178]126:D[178]J[178]125
  115. 1450 [139] LI[178]18 [175] J[178]111 [167] 1600
  116. 1460 [139] U[170]D[178]0 [167] 1430
  117. 1470 OL[178]LI
  118. 1480 LI[178]LI[171]U[172](LI[177]13)[170]D[172](LI[179]18)
  119. 1490 [158] RV,1,OL,11
  120. 1500 [158] RV,1,LI,11
  121. 1510 [158] PU,1,LI,11,20,0
  122. 1520 [137] 1430
  123. 1600 [153]"LOAD(null)CROLL"
  124. 1610 [153]" USRUSRUSRUSRUSRUSR"
  125. 1620 [153]" (null)HIS IS A USEFUL AND VERY EYECATCHING"
  126. 1630 [153]" ROUTINE TO SCROLL MESSAGES. (null)O DO THIS"
  127. 1640 [153]" PUT THE MESSAGE OR TEXT IN A STRING:"
  128. 1650 [153]" (null)VAL$="Q$"LEFT$ELLO (null)HERE!"Q$" THEN:"
  129. 1660 [153]" (null)(null)(null) (null)LEN,(null)VAL,(null),(null),(null)ENGTH,(null)PEED,ASCLAG"
  130. 1670 [153]" ATNFTER THE (null)(null)(null) (null)LEN, THE ROUTINE EXPECTS"
  131. 1680 [153]" A ONE OR TWO LETTER STRING NAME. STR$ON'T"
  132. 1690 [153]" PUT THE '$' SIGN!
  133. 1700 PRINT" [201]F [198]LAG IS 0, THE MESSAGE WILL SCROLL"
  134. 1710 PRINT" OFF THE SCREEN COMPLETELY. [201]F IT IS"
  135. 1720 PRINT" 1-255, THE SCROLLING WILL STOP WHEN"
  136. 1730 PRINT" THE LAST CHARACTER OF THE STRING IS"
  137. 1740 PRINT" PRINTED."
  138. 1750 PRINT" [212]O SCROLL PART OF AN ARRAY"
  139. 1760 PRINT" E.G. [218][218]$([216]), PUT [205][197]$=[218][218]$([216]) THEN THE"
  140. 1770 PRINT" [211][217][211] [211][195],[205][197],..."
  141. 1780 GOSUB 5000
  142. 1800 PRINT"[147][211]CROLL"
  143. 1810 PRINT" [183][183][183][183][183][183]"
  144. 1820 PRINT" [196]URING THE SCROLLING, PRESSING SPACE"
  145. 1830 PRINT" OF THE [198]IRE [194]UTTON WILL SPEED UP THE"
  146. 1840 PRINT" SCROLLING ABOUT 8 TIMES. [208]RESSING ANY"
  147. 1850 PRINT" OTHER KEY OR JOYSTICK MOVEMENT WILL"
  148. 1860 ME$="[212]HIS IS A DEMO OF THE SCROLLING MESSAGE ROUTINE......[212]RY SOME OTHER"
  149. 1870 ME$=ME$+" SETTINGS....."
  150. 1880 PRINT" TEMPORARILY HALT THE MESSAGE."
  151. 1890 SYS AT,1,16,"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  152. 1900 SYS AT,1,17,"                                       "
  153. 1910 SYS AT,1,18,"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  154. 1920 SYS AT,1,11,"[204]ENGTH:  (1-38)";:INPUTL
  155. 1930 IF L<1 THEN L=1
  156. 1940 IF L>38 THEN L=38
  157. 1950 INPUT "  [211]PEED: (1-255)";S
  158. 1960 INPUT "   [198]LAG:   (0/1)";F
  159. 1970 X=(40-L)/2
  160. 1980 SYS RV,X,17,L:SYS PU,X,17,L,40,0
  161. 1990 PRINT"";:SYS SC,ME,X,17,L,S,F
  162. 2000 PRINT:INPUT" [212]EST [193]GAIN   Y[157][157][157]";K$
  163. 2010 IF K$="Y" THEN 1890
  164. 2100 PRINT"[147][212]HE [197]ND..."
  165. 2110 PRINT" [183][183][183][183][183][183][183][183][183][183]"
  166. 2120 PRINT" [206]OW YOU HAVE SEEN THE DIFFERENT"
  167. 2130 PRINT" ROUTINES, YOU CAN USE THEM IN YOUR OWN"
  168. 2140 PRINT" PROGRAMS TO SPICE THEM UP. [201]F YOU"
  169. 2150 PRINT" DON'T UNDERSTAND EXACTLY HOW TO USE"
  170. 2160 PRINT" ANY ROUTINE, EITHER RUN THIS PROGRAM"
  171. 2170 PRINT" AGAIN, OR [204][201][211][212] IT AND SEE HOW IT DOES"
  172. 2180 PRINT" THE ROUTINE."
  173. 2190 PRINT" [198]OR YET MORE INFORMATION ON THESE"
  174. 2200 PRINT" ROUTINES AND THE OTHER ONES USED IN"
  175. 2210 PRINT" [199]ALACTIC [197]NCOUNTER, [204][207][193][196]"Q$"[199].*"Q$",8,1"
  176. 2220 PRINT" AND SELECT [197]XTRA [201]NFO."
  177. 2230 PRINT"[212]RY SPOTTING WHERE THESE ROUTINES ARE"
  178. 2240 PRINT" USED IN [199]ALACTIC [197]NCOUNTER!"
  179. 2250 PRINT"[199][207][207][196] [204][213][195][203]!!"
  180. 2260 INPUT " [196]O YOU WANT TO RUN THIS AGAIN   N[157][157][157]";K$
  181. 2270 IF LEFT$(K$,1)="Y" THEN 110
  182. 2280 PRINT"[147][194]YE!!":SYS FX,0
  183. 2290 SYS PU,1,1,5,20,0:GOTO 2290
  184. 4000 FOR Y=1 TO 8
  185. 4010 SYS RT,1,2,22,P,1
  186. 4020 NEXT:RETURN
  187. 5000 SYS AT,13,24,"[144][208]RESS A [203]EY...";
  188. 5010 POKE 198,0
  189. 5020 GET K$:IF K$="" THEN 5020
  190. 5030 SYS AT,13,24,"[146]              ";
  191. 5040 RETURN
  192. 10000 AT=49152
  193. 10010 SI=AT+3:SE=SI+3:FX=SE+3:PU=FX+3
  194. 10020 CS=PU+3:RV=CS+3:SC=RV+3
  195. 10030 Q$=CHR$(34)
  196. 10040 FOR A=0 TO 191:POKE 832+A,PEEK(29504+A):NEXT
  197. 10050 POKE 53280,0:POKE 53281,15
  198. 10060 RETURN
  199.